/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / efs / efs-cms.elc.z / efs-cms.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 38 3a 35 38 20 31 | 39 39 38 0a 3b 3b 3b 20 |:58:58 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 65 66 73 2f |s-20.3/l|isp/efs/|
|000000a0| 65 66 73 2d 63 6d 73 2e | 65 6c 0a 3b 3b 3b 20 65 |efs-cms.|el.;;; e|
|000000b0| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 32 30 2e |macs ver|sion 20.|
|000000c0| 34 20 22 45 6d 65 72 61 | 6c 64 22 20 58 45 6d 61 |4 "Emera|ld" XEma|
|000000d0| 63 73 20 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |cs  Luci|d..;;; b|
|000000e0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000f0| 32 2e 32 35 20 58 45 6d | 61 63 73 3b 20 32 32 2d |2.25 XEm|acs; 22-|
|00000100| 4d 61 72 2d 39 36 2e 0a | 3b 3b 3b 20 6f 70 74 69 |Mar-96..|;;; opti|
|00000110| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|00000120| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|00000130| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|00000140| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000150| 20 45 6d 61 63 73 20 31 | 39 2e 0a 0a 28 69 66 20 | Emacs 1|9...(if |
|00000160| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000170| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000180| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000190| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|000001a0| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|000001b0| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|000001c0| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|000001d0| 6f 6e 20 22 32 30 22 29 | 29 29 0a 20 20 20 20 28 |on "20")|)).    (|
|000001e0| 65 72 72 6f 72 20 22 60 | 65 66 73 2d 63 6d 73 2e |error "`|efs-cms.|
|000001f0| 65 6c 27 20 77 61 73 20 | 63 6f 6d 70 69 6c 65 64 |el' was |compiled|
|00000200| 20 66 6f 72 20 45 6d 61 | 63 73 20 32 30 22 29 29 | for Ema|cs 20"))|
|00000210| 0a 0a 28 6f 72 20 28 62 | 6f 75 6e 64 70 20 27 63 |..(or (b|oundp 'c|
|00000220| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00000230| 29 20 28 73 65 74 71 20 | 63 75 72 72 65 6e 74 2d |) (setq |current-|
|00000240| 6c 6f 61 64 2d 6c 69 73 | 74 20 6e 69 6c 29 29 0a |load-lis|t nil)).|
|00000250| 0a 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |..(byte-|code "..|
|00000260| 21 88 c2 c3 21 88 c4 c5 | c6 4f c7 c8 c9 c6 4f 51 |!...!...|.O....OQ|
|00000270| 16 5c 6e ca 0e 0b 42 16 | 0b cc cd ce cf d0 21 0e |.\n...B.|......!.|
|00000280| 11 5c 22 d2 23 88 cc d3 | ce cf d0 21 0e 11 5c 22 |.\".#...|...!..\"|
|00000290| d4 23 88 d5 d6 50 16 17 | d7 0e 0b 42 16 0b cc d8 |.#...P..|...B....|
|000002a0| ce cf d0 21 0e 11 5c 22 | d9 23 87 22 20 5b 70 72 |...!..\"|.#." [pr|
|000002b0| 6f 76 69 64 65 20 65 66 | 73 2d 63 6d 73 20 72 65 |ovide ef|s-cms re|
|000002c0| 71 75 69 72 65 20 65 66 | 73 20 22 24 65 66 73 20 |quire ef|s "$efs |
|000002d0| 72 65 6c 65 61 73 65 3a | 20 31 2e 31 35 20 24 22 |release:| 1.15 $"|
|000002e0| 20 31 34 20 2d 32 20 22 | 2f 22 20 22 23 52 65 76 | 14 -2 "|/" "#Rev|
|000002f0| 69 73 69 6f 6e 3a 20 31 | 2e 39 20 24 22 20 31 31 |ision: 1|.9 $" 11|
|00000300| 20 65 66 73 2d 63 6d 73 | 2d 76 65 72 73 69 6f 6e | efs-cms|-version|
|00000310| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00000320| 73 74 20 70 75 74 20 65 | 66 73 2d 66 69 78 2d 70 |st put e|fs-fix-p|
|00000330| 61 74 68 20 69 6e 74 65 | 72 6e 20 73 79 6d 62 6f |ath inte|rn symbo|
|00000340| 6c 2d 6e 61 6d 65 20 63 | 6d 73 20 65 66 73 2d 6b |l-name c|ms efs-k|
|00000350| 65 79 2d 6f 62 61 72 72 | 61 79 20 23 5b 28 70 61 |ey-obarr|ay #[(pa|
|00000360| 74 68 20 26 6f 70 74 69 | 6f 6e 61 6c 20 72 65 76 |th &opti|onal rev|
|00000370| 65 72 73 65 29 20 22 c0 | 20 70 09 1a 1b 1c c5 8e |erse) ".| p......|
|00000380| c6 11 0e 07 ab d4 c8 c9 | 0e 5c 6e 5c 22 ab b8 cb |........|.\n\"...|
|00000390| 95 1e 0c cd 0e 5c 6e cb | 0e 0c 4f 50 1e 0e c8 cf |.....\n.|..OP....|
|000003a0| 0e 5c 6e 0e 0c 23 ab 93 | 0e 0e cd 0e 5c 6e 0e 0c |.\n..#..|....\n..|
|000003b0| cb 94 4f 51 16 0e cb 95 | 16 0c aa 64 0e 0e cd 0e |..OQ....|...d....|
|000003c0| 5c 6e 0e 0c c6 4f 51 2a | 82 e4 00 d0 d1 0e 5c 6e |\n...OQ*|......\n|
|000003d0| 21 d2 5c 22 ab 85 0e 5c | 6e 82 e4 00 cd 0e 5c 6e |!.\"...\|n.....\n|
|000003e0| 50 82 e4 00 d3 19 c8 d4 | d5 d6 51 0e 5c 6e 5c 22 |P.......|..Q.\n\"|
|000003f0| 29 ab f1 0e 5c 6e d7 89 | 95 4f d8 94 ad 87 0e 5c |)...\n..|.O.....\|
|00000400| 6e d9 94 d9 95 4f 0e 5c | 6e da 94 da 95 4f c6 1e |n....O.\|n....O..|
|00000410| 1b 1e 1c 1e 1d 1e 1e 0e | 1d ab 92 df 94 ab 8e 0e |........|........|
|00000420| 1d e0 0e 5c 6e df 94 df | 95 53 4f 51 16 1d e1 8e |...\n...|.SOQ....|
|00000430| 0e 1d ac 8a e2 0e 23 0e | 24 0e 1e 23 16 1b e5 0e |......#.|$..#....|
|00000440| 23 0e 24 0e 1d ab 88 0e | 1e 0e 1d e0 51 aa 82 0e |#.$.....|....Q...|
|00000450| 1e 23 88 0e 1b ab 8b e6 | 0e 23 0e 24 0e 1e 0e 1b |.#......|.#.$....|
|00000460| 24 88 29 0e 1c 2c aa 83 | e7 e8 21 2c 87 22 20 5b |$.)..,..|..!,." [|
|00000470| 6d 61 74 63 68 2d 64 61 | 74 61 20 63 61 73 65 2d |match-da|ta case-|
|00000480| 66 6f 6c 64 2d 73 65 61 | 72 63 68 20 63 66 73 20 |fold-sea|rch cfs |
|00000490| 62 75 66 66 20 6d 61 74 | 63 68 2d 64 61 74 61 20 |buff mat|ch-data |
|000004a0| 28 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 |((byte-c|ode "...|
|000004b0| 8f 88 c3 0c 21 87 22 20 | 5b 6e 69 6c 20 28 62 79 |....!." |[nil (by|
|000004c0| 74 65 2d 63 6f 64 65 20 | 22 8a 08 71 88 09 12 29 |te-code |"..q...)|
|000004d0| c3 87 22 20 5b 62 75 66 | 66 20 63 66 73 20 63 61 |.." [buf|f cfs ca|
|000004e0| 73 65 2d 66 6f 6c 64 2d | 73 65 61 72 63 68 20 6e |se-fold-|search n|
|000004f0| 69 6c 5d 20 31 29 20 28 | 28 65 72 72 6f 72 29 29 |il] 1) (|(error))|
|00000500| 20 73 74 6f 72 65 2d 6d | 61 74 63 68 2d 64 61 74 | store-m|atch-dat|
|00000510| 61 20 6d 61 74 63 68 2d | 64 61 74 61 5d 20 33 29 |a match-|data] 3)|
|00000520| 29 20 6e 69 6c 20 72 65 | 76 65 72 73 65 20 73 74 |) nil re|verse st|
|00000530| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 3a 22 20 70 |ring-mat|ch ":" p|
|00000540| 61 74 68 20 30 20 73 74 | 61 72 74 20 22 2f 22 20 |ath 0 st|art "/" |
|00000550| 72 65 74 75 72 6e 20 22 | 5c 5c 2e 22 20 63 68 61 |return "|\\." cha|
|00000560| 72 2d 65 71 75 61 6c 20 | 73 74 72 69 6e 67 2d 74 |r-equal |string-t|
|00000570| 6f 2d 63 68 61 72 20 3f | 5c 2f 20 74 20 22 5e 2f |o-char ?|\/ t "^/|
|00000580| 5c 5c 28 5b 2d 41 2d 5a | 30 2d 39 24 2a 2e 5f 2b |\\([-A-Z|0-9$*._+|
|00000590| 3a 5d 2b 5c 5c 29 2f 22 | 20 22 5c 5c 28 5c 5c 28 |:]+\\)/"| "\\(\\(|
|000005a0| 5b 2d 41 2d 5a 30 2d 39 | 24 2a 2e 5f 2b 5d 2b 5c |[-A-Z0-9|$*._+]+\|
|000005b0| 5c 29 2f 5c 5c 28 5b 2d | 41 2d 5a 30 2d 39 24 2a |\)/\\([-|A-Z0-9$*|
|000005c0| 2e 5f 2b 5d 2b 2f 5c 5c | 29 3f 5c 5c 29 3f 22 20 |._+]+/\\|)?\\)?" |
|000005d0| 22 5c 5c 28 5b 2d 41 2d | 5a 30 2d 39 24 2e 5f 2b |"\\([-A-|Z0-9$._+|
|000005e0| 5d 2b 5c 5c 29 24 22 20 | 31 20 32 20 33 20 35 20 |]+\\)$" |1 2 3 5 |
|000005f0| 61 63 63 6f 75 6e 74 20 | 66 69 6c 65 20 73 66 73 |account |file sfs|
|00000600| 20 6d 69 6e 69 64 69 73 | 6b 20 34 20 22 2e 22 20 | minidis|k 4 "." |
|00000610| 28 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 ab 85 |((byte-c|ode "...|
|00000620| c1 08 c2 5c 22 88 c1 87 | 22 20 5b 61 63 63 6f 75 |...\"...|" [accou|
|00000630| 6e 74 20 66 69 6c 6c 61 | 72 72 61 79 20 30 5d 20 |nt filla|rray 0] |
|00000640| 33 29 29 20 65 66 73 2d | 67 65 74 2d 61 63 63 6f |3)) efs-|get-acco|
|00000650| 75 6e 74 20 68 6f 73 74 | 20 75 73 65 72 20 65 66 |unt host| user ef|
|00000660| 73 2d 72 61 77 2d 73 65 | 6e 64 2d 63 64 20 65 66 |s-raw-se|nd-cd ef|
|00000670| 73 2d 63 6d 73 2d 73 65 | 6e 64 2d 6d 69 6e 69 64 |s-cms-se|nd-minid|
|00000680| 69 73 6b 2d 61 63 63 74 | 20 65 72 72 6f 72 20 22 |isk-acct| error "|
|00000690| 49 6e 76 61 6c 69 64 20 | 43 4d 53 20 66 69 6c 65 |Invalid |CMS file|
|000006a0| 6e 61 6d 65 22 5d 20 36 | 5d 20 65 66 73 2d 66 69 |name"] 6|] efs-fi|
|000006b0| 78 2d 64 69 72 2d 70 61 | 74 68 20 23 5b 28 64 69 |x-dir-pa|th #[(di|
|000006c0| 72 2d 70 61 74 68 29 20 | 22 c0 20 70 09 1a 1b 1c |r-path) |". p....|
|000006d0| c5 8e c6 11 0e 07 c8 98 | ab 86 c9 ca 21 82 a2 00 |........|....!...|
|000006e0| cb 19 cc cd ce cf 51 0e | 07 5c 22 29 ab fb 0e 07 |......Q.|.\")....|
|000006f0| d0 94 d0 95 4f d1 94 ad | 89 0e 07 d2 94 d2 95 4f |....O...|.......O|
|00000700| b0 01 d3 94 ab 89 0e 07 | d3 94 d3 95 4f aa 81 d4 |........|....O...|
|00000710| c6 1e 15 1e 16 1e 17 1e | 18 0e 17 ab 92 d9 94 ab |........|........|
|00000720| 8e 0e 17 da 0e 07 d9 94 | d9 95 53 4f 51 16 17 db |........|..SOQ...|
|00000730| 8e 0e 17 ac 8a dc 0e 1d | 0e 1e 0e 18 23 16 15 df |........|....#...|
|00000740| 0e 1d 0e 1e 0e 17 ab 88 | 0e 18 0e 17 da 51 aa 82 |........|.....Q..|
|00000750| 0e 18 23 88 0e 15 ab 8b | e0 0e 1d 0e 1e 0e 18 0e |..#.....|........|
|00000760| 15 24 88 29 0e 16 2c aa | 83 c9 e1 21 2c 87 22 20 |.$.)..,.|...!,." |
|00000770| 5b 6d 61 74 63 68 2d 64 | 61 74 61 20 63 61 73 65 |[match-d|ata case|
|00000780| 2d 66 6f 6c 64 2d 73 65 | 61 72 63 68 20 63 66 73 |-fold-se|arch cfs|
|00000790| 20 62 75 66 66 20 6d 61 | 74 63 68 2d 64 61 74 61 | buff ma|tch-data|
|000007a0| 20 28 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 | ((byte-|code "..|
|000007b0| c2 8f 88 c3 0c 21 87 22 | 20 5b 6e 69 6c 20 28 62 |.....!."| [nil (b|
|000007c0| 79 74 65 2d 63 6f 64 65 | 20 22 8a 08 71 88 09 12 |yte-code| "..q...|
|000007d0| 29 c3 87 22 20 5b 62 75 | 66 66 20 63 66 73 20 63 |).." [bu|ff cfs c|
|000007e0| 61 73 65 2d 66 6f 6c 64 | 2d 73 65 61 72 63 68 20 |ase-fold|-search |
|000007f0| 6e 69 6c 5d 20 31 29 20 | 28 28 65 72 72 6f 72 29 |nil] 1) |((error)|
|00000800| 29 20 73 74 6f 72 65 2d | 6d 61 74 63 68 2d 64 61 |) store-|match-da|
|00000810| 74 61 20 6d 61 74 63 68 | 2d 64 61 74 61 5d 20 33 |ta match|-data] 3|
|00000820| 29 29 20 6e 69 6c 20 64 | 69 72 2d 70 61 74 68 20 |)) nil d|ir-path |
|00000830| 22 2f 22 20 65 72 72 6f | 72 20 22 43 61 6e 6e 6f |"/" erro|r "Canno|
|00000840| 74 20 67 65 74 20 6c 69 | 73 74 69 6e 67 20 66 6f |t get li|sting fo|
|00000850| 72 20 43 4d 53 20 5c 22 | 2f 5c 22 20 64 69 72 65 |r CMS \"|/\" dire|
|00000860| 63 74 6f 72 79 2e 22 20 | 74 20 73 74 72 69 6e 67 |ctory." |t string|
|00000870| 2d 6d 61 74 63 68 20 22 | 5e 2f 5c 5c 28 5b 2d 41 |-match "|^/\\([-A|
|00000880| 2d 5a 30 2d 39 24 2a 2e | 5f 2b 3a 5d 2b 5c 5c 29 |-Z0-9$*.|_+:]+\\)|
|00000890| 2f 22 20 22 5c 5c 28 5c | 5c 28 5b 2d 41 2d 5a 30 |/" "\\(\|\([-A-Z0|
|000008a0| 2d 39 24 2a 2e 5f 2b 5d | 2b 5c 5c 29 2f 5c 5c 28 |-9$*._+]|+\\)/\\(|
|000008b0| 5b 2d 41 2d 5a 30 2d 39 | 24 2a 2e 5f 2b 5d 2b 2f |[-A-Z0-9|$*._+]+/|
|000008c0| 5c 5c 29 3f 5c 5c 29 3f | 22 20 22 5c 5c 28 5b 2d |\\)?\\)?|" "\\([-|
|000008d0| 41 2d 5a 30 2d 39 24 2a | 5f 2e 2b 5d 2b 5c 5c 29 |A-Z0-9$*|_.+]+\\)|
|000008e0| 3f 24 22 20 31 20 32 20 | 33 20 35 20 22 2a 22 20 |?$" 1 2 |3 5 "*" |
|000008f0| 61 63 63 6f 75 6e 74 20 | 66 69 6c 65 20 73 66 73 |account |file sfs|
|00000900| 20 6d 69 6e 69 64 69 73 | 6b 20 34 20 22 2e 22 20 | minidis|k 4 "." |
|00000910| 28 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 ab 85 |((byte-c|ode "...|
|00000920| c1 08 c2 5c 22 88 c1 87 | 22 20 5b 61 63 63 6f 75 |...\"...|" [accou|
|00000930| 6e 74 20 66 69 6c 6c 61 | 72 72 61 79 20 30 5d 20 |nt filla|rray 0] |
|00000940| 33 29 29 20 65 66 73 2d | 67 65 74 2d 61 63 63 6f |3)) efs-|get-acco|
|00000950| 75 6e 74 20 68 6f 73 74 | 20 75 73 65 72 20 65 66 |unt host| user ef|
|00000960| 73 2d 72 61 77 2d 73 65 | 6e 64 2d 63 64 20 65 66 |s-raw-se|nd-cd ef|
|00000970| 73 2d 63 6d 73 2d 73 65 | 6e 64 2d 6d 69 6e 69 64 |s-cms-se|nd-minid|
|00000980| 69 73 6b 2d 61 63 63 74 | 20 22 49 6e 76 61 6c 69 |isk-acct| "Invali|
|00000990| 64 20 43 4d 53 20 70 61 | 74 68 6e 61 6d 65 22 5d |d CMS pa|thname"]|
|000009a0| 20 36 5d 20 22 5c 5c 28 | 5b 2d 41 2d 5a 30 2d 39 | 6] "\\(|[-A-Z0-9|
|000009b0| 24 5f 2b 5d 2b 5c 5c 29 | 20 2b 22 20 22 5c 5c 28 |$_+]+\\)| +" "\\(|
|000009c0| 5c 5c 28 5c 5c 28 5b 2d | 41 2d 5a 30 2d 39 24 5f |\\(\\([-|A-Z0-9$_|
|000009d0| 2b 5d 2b 5c 5c 29 20 2b | 5b 56 46 5d 20 2b 5b 30 |+]+\\) +|[VF] +[0|
|000009e0| 2d 39 5d 2b 20 5c 5c 29 | 5c 5c 7c 5c 5c 28 44 49 |-9]+ \\)|\\|\\(DI|
|000009f0| 52 20 2b 2d 20 5c 5c 29 | 5c 5c 29 22 20 65 66 73 |R +- \\)|\\)" efs|
|00000a00| 2d 63 6d 73 2d 66 69 6c | 65 2d 6c 69 6e 65 2d 72 |-cms-fil|e-line-r|
|00000a10| 65 67 65 78 70 20 65 66 | 73 2d 70 61 72 73 65 2d |egexp ef|s-parse-|
|00000a20| 6c 69 73 74 69 6e 67 20 | 23 5b 28 68 6f 73 74 20 |listing |#[(host |
|00000a30| 75 73 65 72 20 64 69 72 | 20 70 61 74 68 20 26 6f |user dir| path &o|
|00000a40| 70 74 69 6f 6e 61 6c 20 | 73 77 69 74 63 68 65 73 |ptional |switches|
|00000a50| 29 20 22 c0 20 c1 89 1a | 1b 1c 65 62 88 c5 20 70 |) ". ...|..eb.. p|
|00000a60| 0e 06 1e 07 1e 08 1e 09 | ca 8e c1 16 06 cb 0e 0c |........|........|
|00000a70| c1 cd 23 ab c4 ce 94 ab | 91 cf 94 cf 95 7b d0 d1 |..#.....|.....{..|
|00000a80| 94 d1 95 7b 51 13 c1 12 | aa 88 cf 94 cf 95 7b 13 |...{Q...|......{.|
|00000a90| cd 12 0b 89 1e 12 3b ab | 84 0e 12 aa 84 d3 0e 12 |......;.|........|
|00000aa0| 21 29 1e 12 d4 0e 12 0c | 5c 22 1e 15 d6 0e 15 d7 |!)......|\"......|
|00000ab0| 5c 6e 43 23 88 2a cf 79 | 88 aa 34 d0 1e 12 d0 3b |\nC#.*.y|..4....;|
|00000ac0| ab 84 0e 12 aa 84 d3 0e | 12 21 29 1e 12 d4 0e 12 |........|.!).....|
|00000ad0| 0c 5c 22 1e 15 d6 0e 15 | d7 d8 23 88 2a d9 1e 12 |.\".....|..#.*...|
|00000ae0| d9 3b ab 84 0e 12 aa 84 | d3 0e 12 21 29 1e 12 d4 |.;......|...!)...|
|00000af0| 0e 12 0c 5c 22 1e 15 d6 | 0e 15 d7 da 23 88 2e 06 |...\"...|....#...|
|00000b00| 0c 2b 87 22 20 5b 65 66 | 73 2d 6d 61 6b 65 2d 68 |.+." [ef|s-make-h|
|00000b10| 61 73 68 74 61 62 6c 65 | 20 6e 69 6c 20 64 69 72 |ashtable| nil dir|
|00000b20| 2d 70 20 66 6e 20 74 62 | 6c 20 6d 61 74 63 68 2d |-p fn tb|l match-|
|00000b30| 64 61 74 61 20 63 61 73 | 65 2d 66 6f 6c 64 2d 73 |data cas|e-fold-s|
|00000b40| 65 61 72 63 68 20 63 66 | 73 20 62 75 66 66 20 6d |earch cf|s buff m|
|00000b50| 61 74 63 68 2d 64 61 74 | 61 20 28 28 62 79 74 65 |atch-dat|a ((byte|
|00000b60| 2d 63 6f 64 65 20 22 c0 | c1 c2 8f 88 c3 0c 21 87 |-code ".|......!.|
|00000b70| 22 20 5b 6e 69 6c 20 28 | 62 79 74 65 2d 63 6f 64 |" [nil (|byte-cod|
|00000b80| 65 20 22 8a 08 71 88 09 | 12 29 c3 87 22 20 5b 62 |e "..q..|.).." [b|
|00000b90| 75 66 66 20 63 66 73 20 | 63 61 73 65 2d 66 6f 6c |uff cfs |case-fol|
|00000ba0| 64 2d 73 65 61 72 63 68 | 20 6e 69 6c 5d 20 31 29 |d-search| nil] 1)|
|00000bb0| 20 28 28 65 72 72 6f 72 | 29 29 20 73 74 6f 72 65 | ((error|)) store|
|00000bc0| 2d 6d 61 74 63 68 2d 64 | 61 74 61 20 6d 61 74 63 |-match-d|ata matc|
|00000bd0| 68 2d 64 61 74 61 5d 20 | 33 29 29 20 72 65 2d 73 |h-data] |3)) re-s|
|00000be0| 65 61 72 63 68 2d 66 6f | 72 77 61 72 64 20 65 66 |earch-fo|rward ef|
|00000bf0| 73 2d 63 6d 73 2d 66 69 | 6c 65 2d 6c 69 6e 65 2d |s-cms-fi|le-line-|
|00000c00| 72 65 67 65 78 70 20 74 | 20 33 20 31 20 22 2e 22 |regexp t| 3 1 "."|
|00000c10| 20 34 20 6b 65 79 20 70 | 72 69 6e 31 2d 74 6f 2d | 4 key p|rin1-to-|
|00000c20| 73 74 72 69 6e 67 20 69 | 6e 74 65 72 6e 20 73 79 |string i|ntern sy|
|00000c30| 6d 20 70 75 74 20 76 61 | 6c 20 28 74 29 20 22 2e |m put va|l (t) ".|
|00000c40| 2e 22 20 28 74 29 5d 20 | 35 5d 5d 20 35 29 0a 23 |." (t)] |5]] 5).#|
|00000c50| 40 32 31 33 20 46 6f 72 | 20 48 4f 53 54 20 61 6e |@213 For| HOST an|
|00000c60| 64 20 55 53 45 52 2c 20 | 73 65 6e 64 20 74 68 65 |d USER, |send the|
|00000c70| 20 61 63 63 6f 75 6e 74 | 20 70 61 73 73 77 6f 72 | account| passwor|
|00000c80| 64 20 41 43 43 4f 55 4e | 54 2e 20 49 66 20 4d 49 |d ACCOUN|T. If MI|
|00000c90| 4e 49 44 49 53 4b 20 69 | 73 20 67 69 76 65 6e 2c |NIDISK i|s given,|
|00000ca0| 0a 74 68 65 20 61 63 63 | 6f 75 6e 74 20 70 61 73 |.the acc|ount pas|
|00000cb0| 73 77 6f 72 64 20 69 73 | 20 66 6f 72 20 74 68 61 |sword is| for tha|
|00000cc0| 74 20 6d 69 6e 69 64 69 | 73 6b 2e 20 49 66 20 50 |t minidi|sk. If P|
|00000cd0| 52 4f 43 20 69 73 20 67 | 69 76 65 6e 2c 20 73 65 |ROC is g|iven, se|
|00000ce0| 6e 64 20 74 6f 20 74 68 | 61 74 0a 70 72 6f 63 65 |nd to th|at.proce|
|00000cf0| 73 73 2c 20 72 61 74 68 | 72 20 74 68 61 6e 20 75 |ss, rath|r than u|
|00000d00| 73 65 20 48 4f 53 54 20 | 61 6e 64 20 55 53 45 52 |se HOST |and USER|
|00000d10| 20 74 6f 20 6c 6f 6f 6b | 20 75 70 20 74 68 65 20 | to look| up the |
|00000d20| 70 72 6f 63 65 73 73 2e | 1f 0a 28 64 65 66 61 6c |process.|..(defal|
|00000d30| 69 61 73 20 27 65 66 73 | 2d 63 6d 73 2d 73 65 6e |ias 'efs|-cms-sen|
|00000d40| 64 2d 6d 69 6e 69 64 69 | 73 6b 2d 61 63 63 74 20 |d-minidi|sk-acct |
|00000d50| 23 5b 28 68 6f 73 74 20 | 75 73 65 72 20 6d 69 6e |#[(host |user min|
|00000d60| 69 64 69 73 6b 20 61 63 | 63 6f 75 6e 74 20 26 6f |idisk ac|count &o|
|00000d70| 70 74 69 6f 6e 61 6c 20 | 6e 6f 72 65 74 72 79 29 |ptional |noretry)|
|00000d80| 20 22 c0 20 70 09 1a 1b | 1c c5 8e c6 11 c7 c8 0e | ". p...|........|
|00000d90| 09 0e 5c 6e 5c 22 cb 0e | 0c 50 5c 22 89 1e 0d 40 |..\n\"..|.P\"...@|
|00000da0| ce 61 ab ac c6 16 0c cf | 8e d0 d1 d2 0e 13 0e 5c |.a......|.......\|
|00000db0| 6e 0e 09 24 21 89 16 0c | d4 98 ab 83 c6 16 0c 29 |n..$!...|.......)|
|00000dc0| 0e 0c ab b3 d5 0e 09 0e | 5c 6e 0e 13 0e 0c 24 88 |........|\n....$.|
|00000dd0| aa a6 0e 0d 40 d6 61 ab | 9f 0e 17 ab 8f d8 0e 09 |....@.a.|........|
|00000de0| 0e 5c 6e d9 0e 0d 41 40 | 50 23 88 aa 8c d5 0e 09 |.\n...A@|P#......|
|00000df0| 0e 5c 6e 0e 13 0e 0c da | 25 88 0e 0d 2d 87 22 20 |.\n.....|%...-." |
|00000e00| 5b 6d 61 74 63 68 2d 64 | 61 74 61 20 63 61 73 65 |[match-d|ata case|
|00000e10| 2d 66 6f 6c 64 2d 73 65 | 61 72 63 68 20 63 66 73 |-fold-se|arch cfs|
|00000e20| 20 62 75 66 66 20 6d 61 | 74 63 68 2d 64 61 74 61 | buff ma|tch-data|
|00000e30| 20 28 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 | ((byte-|code "..|
|00000e40| c2 8f 88 c3 0c 21 87 22 | 20 5b 6e 69 6c 20 28 62 |.....!."| [nil (b|
|00000e50| 79 74 65 2d 63 6f 64 65 | 20 22 8a 08 71 88 09 12 |yte-code| "..q...|
|00000e60| 29 c3 87 22 20 5b 62 75 | 66 66 20 63 66 73 20 63 |).." [bu|ff cfs c|
|00000e70| 61 73 65 2d 66 6f 6c 64 | 2d 73 65 61 72 63 68 20 |ase-fold|-search |
|00000e80| 6e 69 6c 5d 20 31 29 20 | 28 28 65 72 72 6f 72 29 |nil] 1) |((error)|
|00000e90| 29 20 73 74 6f 72 65 2d | 6d 61 74 63 68 2d 64 61 |) store-|match-da|
|00000ea0| 74 61 20 6d 61 74 63 68 | 2d 64 61 74 61 5d 20 33 |ta match|-data] 3|
|00000eb0| 29 29 20 6e 69 6c 20 65 | 66 73 2d 72 61 77 2d 73 |)) nil e|fs-raw-s|
|00000ec0| 65 6e 64 2d 63 6d 64 20 | 65 66 73 2d 67 65 74 2d |end-cmd |efs-get-|
|00000ed0| 70 72 6f 63 65 73 73 20 | 68 6f 73 74 20 75 73 65 |process |host use|
|00000ee0| 72 20 22 71 75 6f 74 65 | 20 61 63 63 74 20 22 20 |r "quote| acct " |
|00000ef0| 61 63 63 6f 75 6e 74 20 | 72 65 73 75 6c 74 20 66 |account |result f|
|00000f00| 61 69 6c 65 64 20 28 28 | 65 66 73 2d 73 65 74 2d |ailed ((|efs-set-|
|00000f10| 61 63 63 6f 75 6e 74 20 | 68 6f 73 74 20 75 73 65 |account |host use|
|00000f20| 72 20 6d 69 6e 69 64 69 | 73 6b 20 61 63 63 6f 75 |r minidi|sk accou|
|00000f30| 6e 74 29 29 20 72 65 61 | 64 2d 70 61 73 73 77 64 |nt)) rea|d-passwd|
|00000f40| 20 66 6f 72 6d 61 74 20 | 22 49 6e 76 61 6c 69 64 | format |"Invalid|
|00000f50| 20 61 63 63 74 2e 20 70 | 61 73 73 77 6f 72 64 20 | acct. p|assword |
|00000f60| 66 6f 72 20 25 73 20 6f | 6e 20 25 73 40 25 73 2e |for %s o|n %s@%s.|
|00000f70| 20 54 72 79 20 61 67 61 | 69 6e 3a 20 22 20 6d 69 | Try aga|in: " mi|
|00000f80| 6e 69 64 69 73 6b 20 22 | 22 20 65 66 73 2d 63 6d |nidisk "|" efs-cm|
|00000f90| 73 2d 73 65 6e 64 2d 6d | 69 6e 69 64 69 73 6b 2d |s-send-m|inidisk-|
|00000fa0| 61 63 63 74 20 66 61 74 | 61 6c 20 6e 6f 72 65 74 |acct fat|al noret|
|00000fb0| 72 79 20 65 66 73 2d 65 | 72 72 6f 72 20 22 41 43 |ry efs-e|rror "AC|
|00000fc0| 43 4f 55 4e 54 20 70 61 | 73 73 77 6f 72 64 20 66 |COUNT pa|ssword f|
|00000fd0| 61 69 6c 65 64 3a 20 22 | 20 74 5d 20 37 20 28 23 |ailed: "| t] 7 (#|
|00000fe0| 24 20 2e 20 33 31 35 37 | 29 5d 29 0a 28 62 79 74 |$ . 3157|)]).(byt|
|00000ff0| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 c3 c4 21 0d 5c |e-code "|.....!.\|
|00001000| 22 c6 23 88 c0 c7 c2 c3 | c4 21 0d 5c 22 c8 23 88 |".#.....|.!.\".#.|
|00001010| c9 ca 50 16 0b cb 0e 0c | 42 16 0c c0 cd c2 c3 c4 |..P.....|B.......|
|00001020| 21 0d 5c 22 ce 23 87 22 | 20 5b 70 75 74 20 65 66 |!.\".#."| [put ef|
|00001030| 73 2d 77 72 69 74 65 2d | 72 65 63 6f 76 65 72 20 |s-write-|recover |
|00001040| 69 6e 74 65 72 6e 20 73 | 79 6d 62 6f 6c 2d 6e 61 |intern s|ymbol-na|
|00001050| 6d 65 20 63 6d 73 20 65 | 66 73 2d 6b 65 79 2d 6f |me cms e|fs-key-o|
|00001060| 62 61 72 72 61 79 20 23 | 5b 28 6c 69 6e 65 20 63 |barray #|[(line c|
|00001070| 6f 6e 74 2d 6c 69 6e 65 | 73 20 68 6f 73 74 20 75 |ont-line|s host u|
|00001080| 73 65 72 20 63 6d 64 20 | 6d 73 67 20 70 72 65 2d |ser cmd |msg pre-|
|00001090| 63 6f 6e 74 20 63 6f 6e | 74 20 6e 6f 77 61 69 74 |cont con|t nowait|
|000010a0| 20 6e 6f 72 65 74 72 79 | 29 20 22 08 40 08 41 40 | noretry|) ".@.A@|
|000010b0| c1 08 38 1a 1b 1c c5 20 | 70 0e 06 1e 07 1e 08 1e |..8.... |p.......|
|000010c0| 09 ca 8e cb 16 06 0c cc | 73 ac 8b 0c cd 61 83 a6 |........|s....a..|
|000010d0| 00 0b ce 61 ab fb cf d0 | 5c 6e 5c 22 ab f5 5c 6e |...a....|\n\"..\n|
|000010e0| d1 94 d1 95 4f cb 89 1e | 12 1e 13 1e 14 d5 8e d6 |....O...|........|
|000010f0| d7 d8 0e 14 0e 19 0e 1a | 24 21 89 16 13 db 98 ab |........|$!......|
|00001100| 83 cb 16 13 29 0e 13 ab | ac dc 0e 1a 0e 19 0e 14 |....)...|........|
|00001110| 0e 13 24 88 dd 0e 1a 0e | 19 08 0e 1e 0e 1f 0e 20 |..$.....|....... |
|00001120| 0e 21 0e 5c 22 26 08 16 | 12 0e 20 ae 82 0e 21 3f |.!.\"&..|.. ...!?|
|00001130| ad a0 0e 12 aa 9c 0e 20 | ab 8d e3 0e 20 e4 0e 25 |....... |.... ..%|
|00001140| 0e 26 24 88 cb aa 8b 0e | 21 3f ad 86 e4 0e 25 0e |.&$.....|!?....%.|
|00001150| 26 45 2b aa 9c 0e 20 ab | 8d e3 0e 20 e4 0e 25 0e |&E+... .|... ..%.|
|00001160| 26 24 88 cb aa 8b 0e 21 | 3f ad 86 e4 0e 25 0e 26 |&$.....!|?....%.&|
|00001170| 45 2e 07 87 22 20 5b 63 | 6d 64 20 32 20 63 6d 64 |E..." [c|md 2 cmd|
|00001180| 32 20 63 6d 64 31 20 63 | 6d 64 30 20 6d 61 74 63 |2 cmd1 c|md0 matc|
|00001190| 68 2d 64 61 74 61 20 63 | 61 73 65 2d 66 6f 6c 64 |h-data c|ase-fold|
|000011a0| 2d 73 65 61 72 63 68 20 | 63 66 73 20 62 75 66 66 |-search |cfs buff|
|000011b0| 20 6d 61 74 63 68 2d 64 | 61 74 61 20 28 28 62 79 | match-d|ata ((by|
|000011c0| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 c2 8f 88 c3 0c |te-code |".......|
|000011d0| 21 87 22 20 5b 6e 69 6c | 20 28 62 79 74 65 2d 63 |!." [nil| (byte-c|
|000011e0| 6f 64 65 20 22 8a 08 71 | 88 09 12 29 c3 87 22 20 |ode "..q|...).." |
|000011f0| 5b 62 75 66 66 20 63 66 | 73 20 63 61 73 65 2d 66 |[buff cf|s case-f|
|00001200| 6f 6c 64 2d 73 65 61 72 | 63 68 20 6e 69 6c 5d 20 |old-sear|ch nil] |
|00001210| 31 29 20 28 28 65 72 72 | 6f 72 29 29 20 73 74 6f |1) ((err|or)) sto|
|00001220| 72 65 2d 6d 61 74 63 68 | 2d 64 61 74 61 20 6d 61 |re-match|-data ma|
|00001230| 74 63 68 2d 64 61 74 61 | 5d 20 33 29 29 20 6e 69 |tch-data|] 3)) ni|
|00001240| 6c 20 28 61 70 70 65 6e | 64 20 70 75 74 20 72 65 |l (appen|d put re|
|00001250| 6e 61 6d 65 29 20 71 75 | 6f 74 65 20 73 74 6f 72 |name) qu|ote stor|
|00001260| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 5e | string-|match "^|
|00001270| 2f 5c 5c 28 5b 2d 41 2d | 5a 30 2d 39 24 2a 2e 5f |/\\([-A-|Z0-9$*._|
|00001280| 2b 5d 2b 5c 5c 29 2f 5b | 2d 41 2d 5a 30 2d 39 24 |+]+\\)/[|-A-Z0-9$|
|00001290| 2a 2e 5f 2b 5d 2b 24 22 | 20 31 20 72 65 74 72 79 |*._+]+$"| 1 retry|
|000012a0| 20 61 63 63 6f 75 6e 74 | 20 6d 69 6e 69 64 69 73 | account| minidis|
|000012b0| 6b 20 28 28 65 66 73 2d | 73 65 74 2d 61 63 63 6f |k ((efs-|set-acco|
|000012c0| 75 6e 74 20 68 6f 73 74 | 20 75 73 65 72 20 6d 69 |unt host| user mi|
|000012d0| 6e 69 64 69 73 6b 20 61 | 63 63 6f 75 6e 74 29 29 |nidisk a|ccount))|
|000012e0| 20 72 65 61 64 2d 70 61 | 73 73 77 64 20 66 6f 72 | read-pa|sswd for|
|000012f0| 6d 61 74 20 22 41 63 63 | 6f 75 6e 74 20 70 61 73 |mat "Acc|ount pas|
|00001300| 73 77 6f 72 64 20 66 6f | 72 20 6d 69 6e 69 64 69 |sword fo|r minidi|
|00001310| 73 6b 20 25 73 20 6f 6e | 20 25 73 40 25 73 3a 20 |sk %s on| %s@%s: |
|00001320| 22 20 75 73 65 72 20 68 | 6f 73 74 20 22 22 20 65 |" user h|ost "" e|
|00001330| 66 73 2d 63 6d 73 2d 73 | 65 6e 64 2d 6d 69 6e 69 |fs-cms-s|end-mini|
|00001340| 64 69 73 6b 2d 61 63 63 | 74 20 65 66 73 2d 73 65 |disk-acc|t efs-se|
|00001350| 6e 64 2d 63 6d 64 20 6d | 73 67 20 70 72 65 2d 63 |nd-cmd m|sg pre-c|
|00001360| 6f 6e 74 20 63 6f 6e 74 | 20 6e 6f 77 61 69 74 20 |ont cont| nowait |
|00001370| 6e 6f 72 65 74 72 79 20 | 65 66 73 2d 63 61 6c 6c |noretry |efs-call|
|00001380| 2d 63 6f 6e 74 20 66 61 | 69 6c 65 64 20 6c 69 6e |-cont fa|iled lin|
|00001390| 65 20 63 6f 6e 74 2d 6c | 69 6e 65 73 5d 20 31 30 |e cont-l|ines] 10|
|000013a0| 5d 20 65 66 73 2d 61 6c | 6c 6f 77 2d 63 68 69 6c |] efs-al|low-chil|
|000013b0| 64 2d 6c 6f 6f 6b 75 70 | 20 23 5b 28 68 6f 73 74 |d-lookup| #[(host|
|000013c0| 20 75 73 65 72 20 64 69 | 72 20 66 69 6c 65 29 20 | user di|r file) |
|000013d0| 22 08 c1 98 ae 91 c2 20 | 70 0b 1c 1d 1e 06 c7 8e |"...... |p.......|
|000013e0| c8 13 c9 ca 08 5c 22 2c | 87 22 20 5b 64 69 72 20 |.....\",|." [dir |
|000013f0| 22 2f 22 20 6d 61 74 63 | 68 2d 64 61 74 61 20 63 |"/" matc|h-data c|
|00001400| 61 73 65 2d 66 6f 6c 64 | 2d 73 65 61 72 63 68 20 |ase-fold|-search |
|00001410| 63 66 73 20 62 75 66 66 | 20 6d 61 74 63 68 2d 64 |cfs buff| match-d|
|00001420| 61 74 61 20 28 28 62 79 | 74 65 2d 63 6f 64 65 20 |ata ((by|te-code |
|00001430| 22 c0 c1 c2 8f 88 c3 0c | 21 87 22 20 5b 6e 69 6c |".......|!." [nil|
|00001440| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 8a 08 71 | (byte-c|ode "..q|
|00001450| 88 09 12 29 c3 87 22 20 | 5b 62 75 66 66 20 63 66 |...).." |[buff cf|
|00001460| 73 20 63 61 73 65 2d 66 | 6f 6c 64 2d 73 65 61 72 |s case-f|old-sear|
|00001470| 63 68 20 6e 69 6c 5d 20 | 31 29 20 28 28 65 72 72 |ch nil] |1) ((err|
|00001480| 6f 72 29 29 20 73 74 6f | 72 65 2d 6d 61 74 63 68 |or)) sto|re-match|
|00001490| 2d 64 61 74 61 20 6d 61 | 74 63 68 2d 64 61 74 61 |-data ma|tch-data|
|000014a0| 5d 20 33 29 29 20 6e 69 | 6c 20 73 74 72 69 6e 67 |] 3)) ni|l string|
|000014b0| 2d 6d 61 74 63 68 20 22 | 5e 2f 5b 5e 2f 3a 5d 2b |-match "|^/[^/:]+|
|000014c0| 3a 2f 24 22 5d 20 33 5d | 20 22 20 5c 5c 28 31 3f |:/$"] 3]| " \\(1?|
|000014d0| 5b 30 2d 39 5d 5c 5c 29 | 2f 5c 5c 28 5b 30 2d 33 |[0-9]\\)|/\\([0-3|
|000014e0| 5d 5b 30 2d 39 5d 5c 5c | 29 2f 5c 5c 28 5b 30 2d |][0-9]\\|)/\\([0-|
|000014f0| 39 5d 5b 30 2d 39 5d 5c | 5c 29 20 2b 22 20 22 5c |9][0-9]\|\) +" "\|
|00001500| 5c 28 5b 31 32 5d 3f 5b | 30 2d 39 5d 5c 5c 29 3a |\([12]?[|0-9]\\):|
|00001510| 5c 5c 28 5b 30 2d 35 5d | 5b 30 2d 39 5d 5c 5c 29 |\\([0-5]|[0-9]\\)|
|00001520| 3a 5c 5c 28 5b 30 2d 35 | 5d 5b 30 2d 39 5d 5c 5c |:\\([0-5|][0-9]\\|
|00001530| 29 20 22 20 65 66 73 2d | 63 6d 73 2d 64 61 74 65 |) " efs-|cms-date|
|00001540| 2d 61 6e 64 2d 74 69 6d | 65 2d 72 65 67 65 78 70 |-and-tim|e-regexp|
|00001550| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00001560| 73 74 20 65 66 73 2d 74 | 2d 63 6f 6e 76 65 72 74 |st efs-t|-convert|
|00001570| 65 72 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |er #[(&o|ptional |
|00001580| 72 65 67 65 78 70 20 72 | 65 76 65 72 73 65 29 20 |regexp r|everse) |
|00001590| 22 08 3f 85 a3 00 65 62 | 88 c1 20 70 5c 6e 1b 1c |".?...eb|.. p\n..|
|000015a0| 1d c6 8e c7 12 c8 0e 09 | c7 ca 23 85 a2 00 c7 89 |........|..#.....|
|000015b0| 89 89 1e 0b 1e 0c 1e 0d | 1e 0e cf 79 88 60 16 0e |........|...y.`..|
|000015c0| 60 16 0c c8 0e 09 8a d0 | 79 88 60 29 89 16 0b ca |`.......|y.`)....|
|000015d0| 23 ab bd d1 d2 94 d2 95 | 7b 21 d1 d0 94 d0 95 7b |#.......|{!.....{|
|000015e0| 21 d1 d3 94 d3 95 7b 21 | d1 d4 94 d4 95 7b 21 d1 |!.....{!|.....{!.|
|000015f0| d5 94 d5 95 7b 21 d1 d6 | 94 d6 95 7b 21 af 06 0e |....{!..|...{!...|
|00001600| 0c 0e 0b 7b 42 0e 0d 42 | 16 0d 0e 0b 62 88 aa 30 |...{B..B|....b..0|
|00001610| 0e 0d ab 9e d7 d8 d9 0e | 0d da 5c 22 5c 22 16 0d |........|..\"\"..|
|00001620| 0e 1b ab 85 0e 0d 9f 16 | 0d 0e 0e 60 7c 88 dc dd |........|...`|...|
|00001630| 0e 0d 5c 22 88 2c ca 2c | 87 22 20 5b 72 65 67 65 |..\".,.,|." [rege|
|00001640| 78 70 20 6d 61 74 63 68 | 2d 64 61 74 61 20 63 61 |xp match|-data ca|
|00001650| 73 65 2d 66 6f 6c 64 2d | 73 65 61 72 63 68 20 63 |se-fold-|search c|
|00001660| 66 73 20 62 75 66 66 20 | 6d 61 74 63 68 2d 64 61 |fs buff |match-da|
|00001670| 74 61 20 28 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ta ((byt|e-code "|
|00001680| c0 c1 c2 8f 88 c3 0c 21 | 87 22 20 5b 6e 69 6c 20 |.......!|." [nil |
|00001690| 28 62 79 74 65 2d 63 6f | 64 65 20 22 8a 08 71 88 |(byte-co|de "..q.|
|000016a0| 09 12 29 c3 87 22 20 5b | 62 75 66 66 20 63 66 73 |..).." [|buff cfs|
|000016b0| 20 63 61 73 65 2d 66 6f | 6c 64 2d 73 65 61 72 63 | case-fo|ld-searc|
|000016c0| 68 20 6e 69 6c 5d 20 31 | 29 20 28 28 65 72 72 6f |h nil] 1|) ((erro|
|000016d0| 72 29 29 20 73 74 6f 72 | 65 2d 6d 61 74 63 68 2d |r)) stor|e-match-|
|000016e0| 64 61 74 61 20 6d 61 74 | 63 68 2d 64 61 74 61 5d |data mat|ch-data]|
|000016f0| 20 33 29 29 20 6e 69 6c | 20 72 65 2d 73 65 61 72 | 3)) nil| re-sear|
|00001700| 63 68 2d 66 6f 72 77 61 | 72 64 20 65 66 73 2d 63 |ch-forwa|rd efs-c|
|00001710| 6d 73 2d 64 61 74 65 2d | 61 6e 64 2d 74 69 6d 65 |ms-date-|and-time|
|00001720| 2d 72 65 67 65 78 70 20 | 74 20 6e 62 6f 6c 20 62 |-regexp |t nbol b|
|00001730| 6f 6c 20 6c 69 73 74 20 | 6c 69 73 74 2d 73 74 61 |ol list |list-sta|
|00001740| 72 74 20 30 20 31 20 73 | 74 72 69 6e 67 2d 74 6f |rt 0 1 s|tring-to|
|00001750| 2d 69 6e 74 20 33 20 32 | 20 34 20 35 20 36 20 6d |-int 3 2| 4 5 6 m|
|00001760| 61 70 63 61 72 20 63 64 | 72 20 73 6f 72 74 20 65 |apcar cd|r sort e|
|00001770| 66 73 2d 63 6d 73 2d 74 | 2d 63 6f 6e 76 65 72 74 |fs-cms-t|-convert|
|00001780| 65 72 2d 73 6f 72 74 2d | 70 72 65 64 20 72 65 76 |er-sort-|pred rev|
|00001790| 65 72 73 65 20 61 70 70 | 6c 79 20 69 6e 73 65 72 |erse app|ly inser|
|000017a0| 74 5d 20 38 5d 5d 20 35 | 29 0a 28 64 65 66 61 6c |t] 8]] 5|).(defal|
|000017b0| 69 61 73 20 27 65 66 73 | 2d 63 6d 73 2d 74 2d 63 |ias 'efs|-cms-t-c|
|000017c0| 6f 6e 76 65 72 74 65 72 | 2d 73 6f 72 74 2d 70 72 |onverter|-sort-pr|
|000017d0| 65 64 20 23 5b 28 65 6c | 74 31 20 65 6c 74 32 29 |ed #[(el|t1 elt2)|
|000017e0| 20 22 08 40 19 5c 6e 40 | 1b 09 40 1c 0b 40 1d 09 | ".@.\n@|..@..@..|
|000017f0| 41 40 1e 06 0b 41 40 1e | 07 c8 09 38 1e 09 c8 0b |A@...A@.|...8....|
|00001800| 38 1e 5c 6e cb 09 38 1e | 0c cb 0b 38 1e 0d ce 09 |8.\n..8.|...8....|
|00001810| 38 1e 0f ce 0b 38 1e 10 | d1 09 38 1e 12 d1 0b 38 |8....8..|..8....8|
|00001820| 1e 13 0c 0d 56 ae c4 0c | 0d 55 ad bf 0e 06 0e 07 |....V...|.U......|
|00001830| 56 ae b8 0e 06 0e 07 55 | ad b1 0e 09 0e 5c 6e 56 |V......U|.....\nV|
|00001840| ae aa 0e 09 0e 5c 6e 55 | ad a3 0e 0c 0e 0d 56 ae |.....\nU|......V.|
|00001850| 9c 0e 0c 0e 0d 55 ad 95 | 0e 0f 0e 10 56 ae 8e 0e |.....U..|....V...|
|00001860| 0f 0e 10 55 ad 87 d1 09 | 38 d1 0b 38 56 2e 0e 87 |...U....|8..8V...|
|00001870| 22 20 5b 65 6c 74 31 20 | 64 61 74 61 31 20 65 6c |" [elt1 |data1 el|
|00001880| 74 32 20 64 61 74 61 32 | 20 79 65 61 72 31 20 79 |t2 data2| year1 y|
|00001890| 65 61 72 32 20 6d 6f 6e | 74 68 31 20 6d 6f 6e 74 |ear2 mon|th1 mont|
|000018a0| 68 32 20 32 20 64 61 79 | 31 20 64 61 79 32 20 33 |h2 2 day|1 day2 3|
|000018b0| 20 68 6f 75 72 31 20 68 | 6f 75 72 32 20 34 20 6d | hour1 h|our2 4 m|
|000018c0| 69 6e 75 74 65 31 20 6d | 69 6e 75 74 65 32 20 35 |inute1 m|inute2 5|
|000018d0| 20 73 65 63 6f 6e 64 31 | 20 73 65 63 6f 6e 64 32 | second1| second2|
|000018e0| 5d 20 33 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |] 3]).(b|yte-code|
|000018f0| 20 22 c0 11 c1 5c 6e 42 | 12 c3 0c b7 ac 86 c3 09 | "...\nB|........|
|00001900| 42 0c 42 14 c5 16 06 c6 | 5c 6e 42 12 c3 0e 07 b7 |B.B.....|\nB.....|
|00001910| ac 89 c3 0e 06 42 0e 07 | 42 16 07 c8 c9 ca cb c3 |.....B..|B.......|
|00001920| 21 0e 0c 5c 22 cd 23 88 | c8 ce ca cb c3 21 0e 0c |!..\".#.|.....!..|
|00001930| 5c 22 cf 23 88 c8 d0 ca | cb c3 21 0e 0c 5c 22 d1 |\".#....|..!..\".|
|00001940| 23 88 c8 d2 ca cb c3 21 | 0e 0c 5c 22 d3 23 87 22 |#......!|..\".#."|
|00001950| 20 5b 22 5e 2e 20 5b 2d | 41 2d 5a 30 2d 39 24 5f | ["^. [-|A-Z0-9$_|
|00001960| 2b 5d 2b 20 2b 45 58 45 | 43 20 22 20 65 66 73 2d |+]+ +EXE|C " efs-|
|00001970| 64 69 72 65 64 2d 63 6d | 73 2d 72 65 2d 65 78 65 |dired-cm|s-re-exe|
|00001980| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00001990| 73 74 20 63 6d 73 20 65 | 66 73 2d 64 69 72 65 64 |st cms e|fs-dired|
|000019a0| 2d 72 65 2d 65 78 65 2d | 61 6c 69 73 74 20 22 5e |-re-exe-|alist "^|
|000019b0| 2e 20 5b 2d 41 2d 5a 30 | 2d 39 24 5f 2b 5d 2b 20 |. [-A-Z0|-9$_+]+ |
|000019c0| 2b 44 49 52 20 22 20 65 | 66 73 2d 64 69 72 65 64 |+DIR " e|fs-dired|
|000019d0| 2d 63 6d 73 2d 72 65 2d | 64 69 72 20 65 66 73 2d |-cms-re-|dir efs-|
|000019e0| 64 69 72 65 64 2d 72 65 | 2d 64 69 72 2d 61 6c 69 |dired-re|-dir-ali|
|000019f0| 73 74 20 70 75 74 20 65 | 66 73 2d 64 69 72 65 64 |st put e|fs-dired|
|00001a00| 2d 69 6e 73 65 72 74 2d | 68 65 61 64 65 72 6c 69 |-insert-|headerli|
|00001a10| 6e 65 20 69 6e 74 65 72 | 6e 20 73 79 6d 62 6f 6c |ne inter|n symbol|
|00001a20| 2d 6e 61 6d 65 20 65 66 | 73 2d 6b 65 79 2d 6f 62 |-name ef|s-key-ob|
|00001a30| 61 72 72 61 79 20 23 5b | 28 64 69 72 29 20 22 c0 |array #[|(dir) ".|
|00001a40| 63 88 c1 75 88 c2 0b 21 | 87 22 20 5b 22 5c 6e 22 |c..u...!|." ["\n"|
|00001a50| 20 2d 31 20 65 66 73 2d | 72 65 61 6c 2d 64 69 72 | -1 efs-|real-dir|
|00001a60| 65 64 2d 69 6e 73 65 72 | 74 2d 68 65 61 64 65 72 |ed-inser|t-header|
|00001a70| 6c 69 6e 65 20 64 69 72 | 5d 20 32 5d 20 65 66 73 |line dir|] 2] efs|
|00001a80| 2d 64 69 72 65 64 2d 6d | 61 6e 75 61 6c 2d 6d 6f |-dired-m|anual-mo|
|00001a90| 76 65 2d 74 6f 2d 66 69 | 6c 65 6e 61 6d 65 20 23 |ve-to-fi|lename #|
|00001aa0| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 72 61 69 73 |[(&optio|nal rais|
|00001ab0| 65 2d 65 72 72 6f 72 20 | 62 6f 6c 20 65 6f 6c 29 |e-error |bol eol)|
|00001ac0| 20 22 08 ac 88 8a c1 c2 | 77 88 60 29 10 c2 1b 0c | "......|w.`)....|
|00001ad0| ab 85 0c 62 88 aa 86 c1 | c2 78 88 60 14 c5 0e 06 |...b....|.x.`....|
|00001ae0| 08 c7 23 ab 85 c8 94 62 | aa 8a 0c 62 88 0e 09 ad |..#....b|...b....|
|00001af0| 83 ca cb 21 29 87 22 20 | 5b 65 6f 6c 20 22 5e 5c |...!)." |[eol "^\|
|00001b00| 6e 0d 22 20 6e 69 6c 20 | 63 61 73 65 2d 66 6f 6c |n." nil |case-fol|
|00001b10| 64 2d 73 65 61 72 63 68 | 20 62 6f 6c 20 72 65 2d |d-search| bol re-|
|00001b20| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 65 |search-f|orward e|
|00001b30| 66 73 2d 63 6d 73 2d 66 | 69 6c 65 2d 6c 69 6e 65 |fs-cms-f|ile-line|
|00001b40| 2d 72 65 67 65 78 70 20 | 74 20 30 20 72 61 69 73 |-regexp |t 0 rais|
|00001b50| 65 2d 65 72 72 6f 72 20 | 65 72 72 6f 72 20 22 4e |e-error |error "N|
|00001b60| 6f 20 66 69 6c 65 20 6f | 6e 20 74 68 69 73 20 6c |o file o|n this l|
|00001b70| 69 6e 65 22 5d 20 34 5d | 20 65 66 73 2d 64 69 72 |ine"] 4]| efs-dir|
|00001b80| 65 64 2d 6d 61 6e 75 61 | 6c 2d 6d 6f 76 65 2d 74 |ed-manua|l-move-t|
|00001b90| 6f 2d 65 6e 64 2d 6f 66 | 2d 66 69 6c 65 6e 61 6d |o-end-of|-filenam|
|00001ba0| 65 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 6e |e #[(&op|tional n|
|00001bb0| 6f 2d 65 72 72 6f 72 20 | 62 6f 6c 20 65 6f 6c 29 |o-error |bol eol)|
|00001bc0| 20 22 60 18 09 ab a7 5c | 6e ac a4 0b ae 87 8a c4 | "`....\|n.......|
|00001bd0| c5 78 88 60 29 53 66 c6 | 61 ab 94 c7 c8 20 21 ab |.x.`)Sf.|a.... !.|
|00001be0| 88 c9 ca cb 21 21 88 aa | 86 c9 ca cc 21 21 88 cd |....!!..|....!!..|
|00001bf0| c5 77 88 ce cf 21 ac 88 | d0 c5 77 88 cd c5 77 88 |.w...!..|..w...w.|
|00001c00| 08 60 55 ac 85 67 d1 55 | ac 89 5c 6e 3f ad 86 c9 |.`U..g.U|..\n?...|
|00001c10| d2 21 aa 81 60 29 87 22 | 20 5b 6f 70 6f 69 6e 74 |.!..`)."| [opoint|
|00001c20| 20 73 65 6c 65 63 74 69 | 76 65 2d 64 69 73 70 6c | selecti|ve-displ|
|00001c30| 61 79 20 6e 6f 2d 65 72 | 72 6f 72 20 62 6f 6c 20 |ay no-er|ror bol |
|00001c40| 22 5e 0d 5c 6e 22 20 6e | 69 6c 20 3f 5c 72 20 64 |"^.\n" n|il ?\r d|
|00001c50| 69 72 65 64 2d 73 75 62 | 64 69 72 2d 68 69 64 64 |ired-sub|dir-hidd|
|00001c60| 65 6e 2d 70 20 64 69 72 | 65 64 2d 63 75 72 72 65 |en-p dir|ed-curre|
|00001c70| 6e 74 2d 64 69 72 65 63 | 74 6f 72 79 20 65 72 72 |nt-direc|tory err|
|00001c80| 6f 72 20 73 75 62 73 74 | 69 74 75 74 65 2d 63 6f |or subst|itute-co|
|00001c90| 6d 6d 61 6e 64 2d 6b 65 | 79 73 20 22 46 69 6c 65 |mmand-ke|ys "File|
|00001ca0| 20 6c 69 6e 65 20 69 73 | 20 68 69 64 64 65 6e 2e | line is| hidden.|
|00001cb0| 20 54 79 70 65 20 5c 5c | 5b 64 69 72 65 64 2d 68 | Type \\|[dired-h|
|00001cc0| 69 64 65 2d 73 75 62 64 | 69 72 5d 20 74 6f 20 75 |ide-subd|ir] to u|
|00001cd0| 6e 68 69 64 65 2e 22 20 | 22 46 69 6c 65 20 6c 69 |nhide." |"File li|
|00001ce0| 6e 65 20 69 73 20 6f 6d | 69 74 74 65 64 2e 20 54 |ne is om|itted. T|
|00001cf0| 79 70 65 20 5c 5c 5b 64 | 69 72 65 64 2d 6f 6d 69 |ype \\[d|ired-omi|
|00001d00| 74 2d 74 6f 67 67 6c 65 | 5d 20 74 6f 20 75 6e 2d |t-toggle|] to un-|
|00001d10| 6f 6d 69 74 2e 22 20 22 | 2d 41 2d 5a 30 2d 39 24 |omit." "|-A-Z0-9$|
|00001d20| 5f 2b 22 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 22 |_+" look|ing-at "|
|00001d30| 20 2b 44 49 52 20 22 20 | 22 20 22 20 3f 5c 20 20 | +DIR " |" " ?\  |
|00001d40| 22 4e 6f 20 66 69 6c 65 | 20 6f 6e 20 74 68 69 73 |"No file| on this|
|00001d50| 20 6c 69 6e 65 22 5d 20 | 33 5d 20 65 66 73 2d 64 | line"] |3] efs-d|
|00001d60| 69 72 65 64 2d 6d 61 6b | 65 2d 66 69 6c 65 6e 61 |ired-mak|e-filena|
|00001d70| 6d 65 2d 73 74 72 69 6e | 67 20 23 5b 28 66 69 6c |me-strin|g #[(fil|
|00001d80| 65 6e 61 6d 65 20 26 6f | 70 74 69 6f 6e 61 6c 20 |ename &o|ptional |
|00001d90| 72 65 76 65 72 73 65 29 | 20 22 08 ab 8e c1 c2 0b |reverse)| "......|
|00001da0| 5c 22 ab 86 0b c4 89 94 | 4f 87 0b 87 c1 c5 0b 5c |\"......|O......\|
|00001db0| 22 ab 8e 0b c4 c6 95 4f | c7 0b c8 94 c8 95 4f 51 |"......O|......OQ|
|00001dc0| 87 0b 87 22 20 5b 72 65 | 76 65 72 73 65 20 73 74 |..." [re|verse st|
|00001dd0| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 5c 5c 2e 22 |ring-mat|ch "\\."|
|00001de0| 20 66 69 6c 65 6e 61 6d | 65 20 30 20 22 5e 5c 5c | filenam|e 0 "^\\|
|00001df0| 28 5b 5e 20 5d 2b 5c 5c | 29 20 2b 5c 5c 28 5b 5e |([^ ]+\\|) +\\([^|
|00001e00| 20 5d 2b 5c 5c 29 24 22 | 20 31 20 22 2e 22 20 32 | ]+\\)$"| 1 "." 2|
|00001e10| 5d 20 35 5d 5d 20 35 29 | 0a                      |] 5]] 5)|.       |
+--------+-------------------------+-------------------------+--------+--------+